home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / unity320.zip / TASM.AWK < prev    next >
Text File  |  1990-08-11  |  422b  |  14 lines
  1. # Parses the output of TASM and returns recoreds containing the following:
  2. #     Filename, Line, Column, ErrorMessage
  3. # Since Column can not be assertained it is set to 0.
  4.  
  5. /[*]Warning[*]|[*][*]Error[*][*]|[*][*]Fatal[*][*]/ \
  6.     {
  7.     split($2,a,"(")
  8.     split(a[2],b,")")
  9.     a = sprintf("%1s, %1s, 0,",a[1],b[1])
  10.     b = " " $1
  11.     for (i=3; i <= NF; i++) b = sprintf("%1s %1s",b,$i)
  12.     print a b
  13.     }
  14.